home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / colors demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  484b  |  23 lines
  1. 10 rem pic
  2. 20 gosub180:goto60
  3. 30 a=a+v:ifa<1024thena=a+1001
  4. 40 ifa>2023thena=a-1001
  5. 50 pokea,k:pokea+d,c:return
  6. 60 j=j+2:v=0-40:gosub30
  7. 70 v=0-1:fori=1toj-1step1:gosub30:next
  8. 80 v=40:fori=1toj:gosub30:next
  9. 90 v=1:fori=1toj:gosub30:next
  10. 100 v=0-40:fori=1toj:gosub30:next
  11. 110 r=peek(56324)+r+a
  12. 120 ifr>32767thenr=r-32767
  13. 130 p=rand7:k=peek(828+p)
  14. 140 c=rand15:ifc=0thenc=7
  15. 150 ifj>7thena=a-199:j=0-1
  16. 170 goto60
  17. 180 poke53280,0:poke53281,0:k=160
  18. 190 printchr$(147);:a=1524:d=54272:c=1
  19. 200 poke828,230:poke829,102:poke830,94
  20. 210 poke831,95:poke832,222:poke833,233
  21. 220 poke834,105:poke835,160:j=0-1
  22. 230 printchr$(14);:return
  23.